“so” NOTES 
“BY R.A.HILSMANN 


Time to look back to some of the 
programs you have found here in the 
past, especially the LIBRARY and 
RECOVER program needs to be updat- 
ed. "Haste makes waste", this has 
been a good demonstration of it. 


But enough about that, lets do 
it. This month an update of the 
LIBRARY program, which as I men- 
tioned last month, hada few fea- 
tures added to it since you have 
seen it in this column. In fact the 
changes are great enough to reprint 
the entire program ones more, and 
also the instructions to use it. 


Next month I will review the RE- 
COVER program, perhaps in its  en- 
tirety, depending on the amount of 
changes I will make to it. Some of 
you have perhaps noted, it does not 
work with single sided drives, fact 
is it was written for  quad-density 
drives, and its major feature is to 
rebuild the directory ones lost. 


I feel this is important enough, 
since SDOS (Safe DOS) in its syntax 
does not ask for the drive number 
when the command "FORMAT/"name" is 
entered. Criticism? I hope it is 
not viewed that way since I think 
John Oliger has done a fantastic 
job writing the DOS, just a suges- 
tion, if space and time permits to 
perhaps change the syntax, at least 
for "FORMAT" to  "FORMAT/2"name", 
which of course would make the user 
aware to specify the drive number 
when doing such a major task like 
formating a disk, rather than 
expecting flaky computer users to 
do a "LET/D=2" before formating, 
something easely forgotten. 


I have managed to do this twice 
with an important disk in the other 
drive, but then I have been called 
flaky in the past, especially since 
I still use such an outdated  com- 
puter as the 2068 Timex/Sinclair. 
Little do they know. 
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1 REH F tine with 
= Γ machine code 
t 455739861234: 
15 REH 
SEES *Yit*ririiitfikitifitittít 
x Ὁ ην PROGRAM x 
= «το 1.4 (50581 + 
* Ti (| IMPEX SOFTUARE # 
+ t5 HILSHHRHHH 3 
* FOR PUBLIC DOHAIN. = 
XXXXtxXxXtGXixiXxExkExkikiikiirttrxxEx 


ΞΕ CLEAR : LET A=NOT PI: DIH 
$ (UAL "172",UHL "20"): DIM Li D: 
js τη B$iunL “ΞΕ: DIM 
$iURHL "508"1: LET O=A: LET I-SGN 
PI: DIM KS 0UHL "SUAL "S"): LE 
T Ke tT) = BASIC": LET KS(UAL “Β"Ὶ 
z"DHTHH": LET KASiIHT PI) ="DATAS" 
; LET KS CUAL "4" "CODE "m EET K 
$ VAL oe on ια LET K$iVAL " 


6 zc Ls = : H 
I: BORDER I: LET E-PEEK UAL “225 
35° ἘΜΗ͂Σ ΞΕΞΕἘΡΕΕΗ VAL “23535040 


aL | 

30 CLS : LET HENUSVAL "S50". LE 
T CzUHL "18": LET P=VAL "78": LE 
T üzuURL "Z8": LET RzURL TAB URL" 


ü SUB FP: LET E PRINT TAB VAL 
AL μμ τι lMPEX SOFTWARE” "x 
η Τῷ ‘CREATE A Ὃν 


EW LIBRARY ΒΤ TO LOAD AN 
EXISTING PRINT 80; “ENTE 
Π 1 OR 2" |; IF INKEYS="2 
' THEN GO INPUT “FROM UHI 


,TLURBDINGENTER DH 
K: CLS : 60 TU 


UAL δα ἳ 

4@ GO SUB P: INPUT “HOU MANY F 
ILES IN HEU DISK FILE? (380 MAX T 
“Ἐς - G0 HAX πι. ΕΕ: DI 
M ES£iFL4I,URHL "27" LET ES$tI, T 
O VAL "3")zSTR5$ I: 'én SUB P: INP 
UT “ENTER NHHE OF NEW LIBRARY FI 
LE" DS: LET ESiI,VAL "4" ες UAL 


1. B : ELS ο F 
RINT AT a, BINT. (LEH Oro; DISK 
: LIBRARY FILE ERII VAL "4" TO 
URL "l3"1;HT I,D;"xszszrxtxtzX 
XX£Xxixixxiz£zziirixrgiUus751) SEARCH 
OR LIST PROGR. δ: LOAD "''"21 CHA 
NGE DISK NAME (BISKALIBR.IS SUS: 
ADD A DISK FILE. (TO LIBRARY)": 
^"41 DELETE DISK FILE (FROM LIBR 
.177'"B53 UPDATE A DISK FILE {LIB 
RARY) ΠΕΙ SORT LIBRARY FILES ¢ 
RHLPHRH3"''"7! LOAD OR SAVE LIBRAR 
Y DATA "'""81 LIST LIBRARY FILES 
TO PRINTER" 

Bü PRINT 5 CREATE HEU DISK 
FROM FILES! 2 


Sees ΗΡΙ ΙΡ 
ΠΕ 14,"»";Y;" FILES ENTERED": PR 
INT #0; s 33222: PRESS 1 TOG < 
€€6€€4€4": PAUSE 0: GO TO (CODE 
ΙΗΚΕῪ $-481 2153 

78 BEEP .@&,35: 

6@ LET Y=UAL Est, Ea INT FII- 
I: RETURN 


100 PRINT " ENTER ZERO (81 TO E 
XIT TO. MENU 
wu (00 RETURN 
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118 PRINT WILL BE CATALOG 


ENTER WHEN PROHP 


ED NOH” 

TED Ta 11": RETURN 
158 PRIHT 4SERT DISK INTO"? “τ 

APPROPRIATE DRIVE AND "''"ENTER 


DRIVE NUMBER BELOW" 
158 PRINT AT 21,0; "DRIVE H (1 T 


ü 4i OR id) TO EXIT ": RETURN 

1000 GO SUB 8: CLS : GO SUB R: G 
a SUB P: INPUT “ENTER NAHE OF ΕΕ 
OGRAM FOR SEHRCH'"''"OR PRESS ENT 


ER FOR LISTING üF' “BLL LIBRARY 


FILES"''''"SERHRCH-NHME CAN BE Ε 
ΗΡΤΤΗΙ "NAS FOR. 


PROGRAM" = 
“ο Εις IF F 


Go TO VAL "18 


Yi IF E$iA+I, I TO 
GO TO VAL ^1eo4à 


1858 NEST : OLS D is Sce E FRIN 
; mi 


BE LOCATED": Pas Bo 
O: GO TO HEHU 
1846 CLS : GI 


P: GO SUB R: P 
RINT AT URL “ΕΞ " 


FILE > ΕΗ 
4: “JES (A4I,UA 
pr 5: ἜΘ CORR 

IE’? 7 "NAMED DIS 
"ας INPUT K 
HzRH-4I: GO TO ἡ 


1050 GI 
1668 CLS “T=PAGING x ENT 
ER= =LOAD ju -XITFILE- NAHE TYF 
E DISK-NAK ΠΣ ΣΣΣΣΣΣΣΣΣΣΣΣΣΕ 
ΡΕ ΕΙ cx ; 60 SUB Q: LET 
FzY-4I: 60 1158 
1976 LET G-3: LET Hoi: FOR Ξ TŪ 
gs PRINT AT G0; INU ERE 1; OUE 
QE OO: 1 BzCODE INKE 
THEN GO TO 1218 
: THEN GO TO MENU 
THER LET Az=J4i1: ET 
SUB 1227: GO SUB ii 


GO SUB απλα: 
1119 PRINT 


a 

a 

: ο 118 
1199 PRINT A 
e 4 

HT 5, 

H RANDOMIZE USR 


GC$: IF ΒΥΕ THE 


E: GO TO 1158 
1120 RE 
1130 60 E 
1146 PAU F 
IF ΕΞ. L 


; LET L$zE$ 
"i2z0'"4CODE 
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iz24 LOAD ο ες ΠΕ STOP 

1225 LOAD “1 ΗΕ 

1226 LOAD 1 ΚΗΞΕ : STOP 

1227 POKE 233765,K-2564INT (Kves6 
Ἐς POKE 23277,INT ΒΡΕ]: RETUR 


N 
1999 GO TO MEH 
2080 CLS : GO SUB P: GO SUB R: F 
RINT AT €,0;: GO SUB VAL “ies” 
INPUT K: IF K=O THEN GO TO MENU 
2010 LET ;D-K-I: GO SUB P: CLS 
PRINT HT να: GO SUB VAL 118 
: PAUSE R«R: CAT : RANDOMIZE USR 
E: CLS : LET F$-RH$iURHL "178", T 
O VAL ."16"1: PRINT HT C,0;"ü0LD D 
ISK NAME ";F$: INPUT “ENTER NEU 
DISK NAHE BELOW TREN “? “PRESS E 
NTER. (16 CHR MAXI"; AT VAL ΜΝ 
O;Bst TO VAL 1Ε"1: LET AstUAL " 
178", TO VAL "15")-B£&( TO VAL "i 
6"): RANDOMIZE USR (Εσυ. ΙΕ 
2020 GO SUB a: FOR 1 TO Y: IF E 
$(A+1,12 TO 27!-F$ THEN LET ESiH 
+1,12 TO 27) =BS 
2030 NEXT 
2180 LET B$-"": GO TO MENU 
sogna CLS : GO SUB P: GO SUB R: FP 
RINT στι TO ABD DISK TO THE LIE 
RRHRY."'': GO SUB VAL "120": GO 
UB VAL "138": INPUT κ: IF Κ-ο 
EN GO TO MENU 
3010 LET ;DzK-I: CLS : PRINT AT 
C,0;: GO SUB VAL "110": PAUSE R+ 
R: CAT : LET ΕΞΕΗΞΕ E: GO SUB UAL 
"3030": CLS : GO cag P: GO SUE 
R: PRINT HT VAL "G",0;"DISK TO E 
E ADDED TO THE LIBRARY:"*''"DISK 
NAHE: ";HSiUHL "178"1'"FORHHTED 
TO. ";CODE AS(VAL "αρα τι, τας 
» "CODE ASTUAL "179",I41);" SID 
ES" “CAPACITY ";CODE A$(UAL "178 
"U,INT PII sUHL ngr,” K'"'"REHRINIHN 
G DISK SPACE: ";CODE RH$(tURHL "173 
"UAL "S")sURHL "Z5";" K"''"'"'PRESS 
ANY KEY TO HDD DISK TO THEDISK- 
LIBRARY': PAUSE 0: IF INKEY$="2" 
THEN GO τὸ HENU 
3020 FOR ^Y TO Y4F-1: LET ES {Adi 
. TO 11)-H$iH-Y41, TO 13415, LEL E 
(Πε 15 TO 27) =A$ 11781: NEXT : 
LET ES(I, TO INT PI) sSTRS A: GG 
TO HEN 
38538 IF ΕΞ THEN PRINT "TAB 
E 578" yono FILES ON PISK ΘΙ 
UB R: PAUSE DO: GO TO MENU 
G@4@ GO SUB G: LET YzvY41: FOR ve 
2 


(ΓΙ 


TO Y: IF Es¢iA,ie TO 271 =Agti 7s 
TO 16) THEN CLS : PRINT AT ΕΠ; 
"DISK ALREADY PRESENT IN LIBRARY 
"'*: GO SUB R: PAUSE ο: GO TO HE 
NU 

3050 NEXT : RETURN 

4@8@ CLS : GO SUB P: GO SUB R: L 
ET Εξ: INPUT “ENTER NAME OF DIS 
K FILE TO BE DELETED FROM THE 
DISK-LIBRRHREY"' '''F$: IF Εξ") T 
HEN GO TO MENU 

4618 CLS : PRINT AT C,ü0; "ΠΕΙ ΕΤΤΗ 
G DISK ";F$: GO SUB Q: FOR xX-2 T 
O Y41 

4@20 IF ESix,i2 TO 114+LEN Fai =Fs 
THEN GO SUB VAL "4850": LET Y=y¥ 
-I: LET E£S(I. TO INT PI!-zSTR$ (Y 
+I}: GO TO VAL "48020" 

4030 NEXT X: IF B THEN RETURN 
4640 GO TO MENU 
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40508 FOR Χα TO Y4I: IF HzFi THEN 
IF EStA, 13 TO 12-4LEM Fai ΞΕ THE 
H LET ESiHrz"": RETURN 
4858 LET Esti s=E¢ (A411: NEXT : R 
ETURH 
τοσα CLS : GO SUB P: PRINT AT C, 
ο, "TO UPDATE A DISK FILE IN THE 
^*"DISHK LIBRARY, ";: GO SUB 15: 
INPUT K: IF #=0 THEN GO TO MENU 
πσιο LET «D=K-I: CLS : PRINT AT 
C,0;: GO SUB VAL "110". PAUSE R+ 
R: CAT : RANDOMIZE USR E: LET ΕΦ 
=A (VAL "i78", TO VAL "16"31: GO 
SUB R: LET B-I: GO SUB VAL "4518 
": CAT : LET ΕΞΗΞΕ E: LET YzY-«i1: 
LET E¢il, TŪ 2)z5TR$ Y: GO TO wu 


= 
6020 CLS : GO SUB R: GO SUB P: P 
'SDBRTING"''"THIS MAY 
E (BRSIC!i!!)": Go SU 


42: IF 5izY4I THEN G 
5020 LET ΞΞΤΗΤ (S72): IF 5-0 THE 


65020 FOR ve TO Y41-5: LET K-H 
58480 LET B=K+5: IF ESiK)«-ESCE!?! 


60568 LET Fá$-ESikK): LET ENS =Est 
B): LET ES (Bi =Fs: LET KzK- IF 
K»1 THEN GO TO 6846 

6660 IF IHKEYS$-"G'" THEN GO TO HE 


6@7Q NEXT : 60 TO 6820 

70800 CLS : GO SUB P: GO SUB R: FP 
RINT HT ο 0; TO OR FROM WHICH D 
RIVE ARE ὙΏΗΤ’ TAB INT PI; “SAVIN 
G OR LOADING DATA 7": INPUT “BRI 
UE d »";H: IF K=0 THEN GO TO MEN 


7810 LET +D=K-I: GO SUB P: PRINT 
'^'"ENTER ""L'"" FOR LOADING 7" 
"ΒΤ FOR SAVING": INPUT Fs 
: IF Fse="L* OR Fe="t" THEN GO TO 
URL 7848" 
ioe Ὁ CLS : GO SUB P: PRINT AT 
i “DATA TO ΕΕ SAVED IS: S ERII U 
AL "4" TO UBL "13"1**"DO you UIS 
H TO CHANGE THE ο INPUT. "i 
Y^Mj UC RS: IF Fest OR F£z"u" T 
HEN GO SUB P: INPUT "ENTER NEU M 
AME "IES(I,UHL "4" TO VAL "123": 
7030 SAVE ZETI, UAL “4" TO VAL " 
l3 J DATA Eg ti: GO TO MENU . 
7040 LET ^/D-ÉK-I: PRINT AT 0,0; “E 
NTER NAME DF DATA TO BE LOADED!” 
ΟΠ TOKEN ‘CAT’ FOR CATALOG  " 
7045 GO SUB P: INPUT “NAHE OF CA 
T ";D$: IF ΡΟ" CAT " THEN CAT : 


7058 LOAD “Ὁξ DATA Efi: LET FL= 
VAL ES(I,URL “ig” TO VAL "i18"1: 
eo Tü MENU 
E : z j| P: GO SUB R: P 
RINT AT £,0;° ARE YOU LISTING TO 
8 CENTRONIC"''"TYPE PRINTER 77 ( 
τν. ὃν PAUSE O: IF INKEYs="@" TH 
EM GO TO HEHL 
6010 IF INKEYZ-"Y" OR INKEY$-"u" 
THEN GO TO υπ "agza" 
6@20@ CLS : LET vP=T: GO SUB à: F 
απ 72 TO Y+I: LPRINT Esta, TO ið 
J; TRE 11;K$i(icCODE £$1(4,1133;TAB 
aun IMs 15 TO 251: NEXT : cO το 
saca REM PRINTER CODES HERE 
EPSON FX/RX + SKIP QUE 
PERFORATION 
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B 14;K$1(14+C05 
Eg (A,1le TO 271 


2 


S 
= 
SUE 


$ 
+I; LPRINT TAB 2 
} 


OUT 127,27: OUT 


& 
ü: FOR ve TO Y 
ΠΠ, TO i8:;TA 
iin, 1133; THB 28; 


5050 IF H:Y41 THEN LPRIHT TAB 42 
ES TATI, TO i1803;TRB 54; K8(01+CODE 
ESiH-1,113)];THB 68; E${A+1,12 τὸ 


2731: LET A=R4+1: 


saca GO TO MENU 


NEXT 


9@@@ CLS : GO SUB P: GO SUB R: P 
RINT HT VAL "5",0;"THIS FEATURE 
REQUIRES THO DRIVES"’ ''""IF You WN 
EED TO FORMAT A DISK,"'': GO SUB 


VAL ΕΤ 


9810 PRINT HT VAL "12",0; "Sg 
qian T1 Sees": INPUT 


SNe oe Sears Go TO MENU 
αὔδα IF F$-"" THEN GO TO VAL "808 
50" 


9630 CLS : GO SUB P: LET K=VAL F 
$: PRINT AT C0; DISK WILL BE FO 


RHATED NOW’? 
DRIVE “jk: LET 


/JDzkK-I: INPUT “EN 


TER NAME FOR NEW DISK’ ‘Fs 
S@4@ CLS : GO SUB P: PRINT AT C, 
0; “IF DISK IS IN DRIVE "; FLASH 
I;K; FLASH Q;" THEN PRESS" "ENT 
ER AND FORNATING WILL BEGIN": FA 
USE ο: FORMAT εἰ LET F=U5R E 
$@5@ CLS : GO SUB P: PRINT AT C, 
0; “MAKE SURE THE CORRECT DISKS H 
RE"''"IH THE CORRECT DRIUES BEFO 
RE'"''"HOUING DATA FROM DISK TO D 
ISK.": INPUT "ENTER DRIVE NUMBER 
FOR SOURCE DISKS (1 TO 4) “jB 
: GO SUB P: INPUT "ENTER DRIVE H 
UMNBER FOR "^"^"DESTIHRHTION DISK ¢ 
1. TO. 4). ";S: LET. S=S=22 CLS : IPR 


INT AT C,0; 


"INSERT DESTINATION D 
ISK INTO"''TAHB C; 


“DRIVE σετ; «Τ 


AB INT PI; "PRESS ENTER WHEN READ 


Y,"**. PAUSE O0: 


,0;: GO SUB UAL 
PAUSE R-«R: CAT 


CLS : PRINT AT C 
"110": LET /D-8 
LET /D-B-I 


a180 RANDOMIZE USR E: CLS : PRIN 
T "1-PRHGING x ENTER-MOUE xZERO-E 


AIT DISK SPACE, 


DEST. DRIVE +": 


GO SUB 8270: PRINT "zzzzzrzrrrrrrk 
XYXtxtxXixixirifrkizxirirki": GO SUB ü: 


LET FzvY4I: 60 


TO VAL "231760" 


5118 LET G-2: LET H=1: FOR ντ To 


J: PRINT AT Ε,8; 
R 1;B$: PAUSE Å: 


INVERSE 1; GUE 
LET UzCüDE INKE 


Y$: IF U=i3 THEN GO SUB VAL “925 


@": GO SUB UAL 


"9278" 


3120 IF U=48 THEN GO TO MENU 
9130 IF U=49 THEN LET A=d+1: LET 
K=K+G68: cO SUB 9268: GO SUB 81 


5@: GO To S238 
914@ PRINT AT i 
GO SUB 81: 


N 
8158 PRINT AT 3 
R 


H RANDOMIZE USR 
9166 RETURN 
91708 GO SUB P: 


T wis 
8180 PAUSE 2: LET Gia. LET Hzü: 


IF F-T:zi17 THEN 
0 5588 

9190 LET J=F 
$280 LET K-PEEK 
3377: FOR /T TO 
S210 PRINT AT ΕΣ, 


HB 11;K£il14CODE 


ESIiH,.12 TO zB51 
THEN RETURN 


B; INVERSE 8: Ε5: 


BC£: IF A>F ΤΗΕ 
E: GO TO 5178 


LET 3: LET. B0 T 


το cae ee 2 
B;Es(A, TO 181;T 
EsiA, 131; TAB 17 
LET GzG41: IF H 
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3220 NEXT : GO SUB 9260: GO 508 
8110 

9230 IF A-i<=F THEM LET T=A 
9240 GO TO VAL "oise" 

9258 GO SUB P: PRINT #0; “INSERT 
SOURCE DISK INTO DRIVE 2": 8; "PEE 


4 Ξὶ £ I: 60 

TO UAL "σσ" τόαρε Es (A, C+I?} +I 
9251 MOVE νι TO 5: RANDOMIZE US 
R E: RETURN 
S252 MOVE ΙΒ DATA TO 5: RANDONT 
= USR E: RETURN 

253 MOVE vis DATA $ TO 5: RANDO 
MIZE USR E: RETURN 
9254 MOVE -^L£cODE TO 5: RANDONIF 
E USR E: RETURN 
S255 MOVE vLS$ABS TO 5: RANDOMIZE 
USR E: RETURH 
S256 HOVE ZL$UAL TO 5: RANDOMIZE 


aK #INT (Kh 7256 
INT 1 2561: RETUR 


S270 PRINT AT i,.27;:" IAT 1,2 
7; CODE H$il7238,51z5;"K": RETURN 
85808 REM INITALIZE PROGRHH UITH 
RUN Ότο THEN 
DELETE LINE 9500 TO END 
UNLESS ENTERED IN THE 
TiHEX HODE. 


2510 STORE 9520: FOR X-285715 T 
Ὁ 267 iB QE READ B: POKE X,B: ΝΕ 
XT X: PORE 25711,6 

S520 CATA 285,198, @.42,75,92,i17,1 
4,0,25,225,33,32, 36, 1.212,135,237 
4755.99, 8,38,14.15,237, 76,2223, 
B35,17,4,0,25,235,33,0,38,14,18, 
Z37,175,225,17,.280,68 b52,1258,1230,4 
8,4,2,25,428,248,42,75,82.17,42,0 
,SS,04,8580,981,223,42,75,02,17,32, 
14,25,17,15,38,1,16,.0 8,205,110; e,2 
37.176,285,142,180,223 

S530 DELETE 2500, 

S540 REM CHANGE 26715 IN LINE 


S518 TO 23750 To 2276 
+84 IF ENTERD IN THE 
SINCLAIR MODE, ALSO 

OMIT LINE 9538 


Enter the program with the 2068 
in the TIMEX mode if possible, 
since this mode suports the delete 
necessarry to delete lines 9500 to 
end. The program will work in 
either mode ones saved and reloaded 
to be used. Needles to say, the 
Program will work only with Safe 
DOS or SDOS as I prefer. 


Here now the instructions to run 
the LIBRARY program. 


Ones typed into the computer and 
initialized, save the program to 
disk, using; 

CLEAR: SAVE/"LIBRARY" LINE 20 
Reset or NEW your computer, and 
enter;1@ LOAD/"LIBRARY", save this 
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line to file Ø, unless you elect to 
keep the LIBRARY program on a disk 
with other programs. Keeping it on 
a disk by itself will allow you to 
just type LOAD & ENTER to load it. 


Version 1.4 has a few features 
the previous published program does 
not have, besides it has been 
debuged, but perhaps some more will 
surface as time goes ΟΠ. Let me 
know if you find any. 


Sorry about the basic sort in 
the program, but as soon as time 
permits I will write a machine code 
portion for it, like I said before, 
have a cup of coffee while it sorts 
in the meantime. Now a view hints 
on how it works! 


Upon running, the program will 
ask you if you like to start a new 
file or like to load an existing 
one. Naturally you have to start a 
new one first, so press "1". Enter 
the number of entries you wish to 
make to the file next, keep in mind 
that when in the TIMEX MODE you 
wont have the luxory of having as 
much memory available as in the 
SPECTRUM MODE, it may be best to 
use a maximum of 800 files, since 
you may like to load a program 
while in the TIMEX MODE. 


Having reached the MAIN MENU, 
you will see all the options 
available to you. Insert a disk 
into a drive and press option "3" 
to enter the files on that disk to 
the LIBRARY. Always scroll through 
the files when the program catalogs 
your disk, and follow the prompts. 


The program should have returned 
you to the MAIN MENU now, where you 
will see the number of files you 
have entered just above the bottom 
line. Press "1" at this time and 
then press ENTER again. You will 
now get a listing of all the files 
you have entered. Pressing any key 
will permit you to scroll through 
the files with an inverted cursor, 
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pressing ENTER will load the 
program at the cursor position from 
the named disk. Pressing "1" will 


page through the files should you 
have more than 19 files in the 
LIBRARY, but lets get back to the 
MAIN MENU pressing the "go" key. 
Lets add a few more disks to the 
LIBRARY at this time. 

I should mention that after 
pressing the "1" key, you have the 
option to use the search function 
and are able to load the searched 
program after inserting the named 
disk. 


Try deleting a file after you 
have loaded it, or try the update 
a disk feature to get the feel for 
it now. Options "S" and "6". 


Do you have a disk which has a 


funny name, like "test" and you 
always wanted to change that name? 
Yes you may do so now, using 


feature "2". This feature will not 
only change the disk name in the 
LIBRARY, but will also change the 
DISK NAME on the DISK (SDOS version 
2. & up). Have the DISK to be 
changed in a drive and the LIBRARY 
FILE present at the same time, this 
will prevent confusion in your 
listings at a future time. 


Lets see how fast a basic sort 
is next. Press "6" and watch the 
blinkenlight on John's board if you 
have nothing better to do. Believe 
it, this is the fastest sort there 
is in basic for this particular 
purpose, yes I tried a few others, 
but this one beats them all. Having 
close to 800 files in the LIBRARY 
and using the sort then, should 
really warm up the chips in your 
computer, so much for basic. Sorted 
listings let you find things a lot 
easier on a print out, but it will 
be better to have unsorted files to 
create a new disk from the LIBRARY 
since some programs have basic, 
screenfile and code to be moved, 
having different names for each. 


If you have a printer hooked up 
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and dont mind waisting some paper, 
press "B" now, and see what a 
printout looks like, but before, if 
you do not have have an EPSON type 
printer, check the printer codes on 
line 8030, don't wor y about 
breaking into the program, "GO TO 
MENU" or "GO TO 50" will get you 
back to the MENU, but never use 
RUN, this will of course wipe out 
all the data. Change the printer 
codes on line 8030 if needed, 
consulting your printer manual of 
course. Also change the "LET/P-0/G" 
to whatever you have used in the 
past. 


Next find a new disk, and press 
the "9" key. First, you will be 
able to format this new disk, but 
if you have a formated disk ready, 
or like to MOVE some files to a 
disk which already has some files 
on it, then just press ENTER to 
skip the format option. The destin- 
ation DISK will be cataloged next, 
this will read the destination disk 
for the amount of disk space avail- 
able on the disk, which will be 
constantly updated and displayed 
above the listings, this will make 
life easier. 

You should see a listing οἱ: all 
your files next. Yes this is the 
same routine as the file Ø menu 
loader, one exception, pressing the 
ENTER key will MOVE the file at the 
cursor from the SOURCE drive to the 
DESTINATION drive now. 

Just follow the prompts when using 


this function, make sure though, 
you always insert the appropiate 
disk into the source drive, 


otherwise you will get an error 
report. Typing "GO TO MENU" will 
get you back to the menu if this 


happens, or you may try using 
"CONTINUE" after inserting the. 
correct disk, this should work, 


something I have not tried at this 
time. 


Function "7" will of course 
allow you to save a LIBRARY FILE to 
disk, or allow you to load another 
FILE into the program. 
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One word of caution, do not 
tamper with line "20", but if you 
cant resist, do not define any 
variables ahead of the ones already 
defined, the machine code in line 
Q looks for the defined variables 
in line 20 in a certain area of 
memory, so keep your poken fingers 
away from that line. Also do not 
take line @ down to edit, not that 
this is possible, but if some of 
you poke 8 different line number 
into line Ø, you will be able to do 
so, this will surely wipe out the 
code!! 


Good luck, I hope you enjoy this 
program as I do. It was born out of 
necessity to clean up my disk 
library. 

Let me know if you like it, this 
would be about all the profit I 
would make from writing it. 


Your #3 
R.A. HILSMANN (Rudy) 
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αι αι οι οι αι αι οι οι οι αι οι οι οι οι αι 


READ ANY GOOD QL BOOKS LATELY? 
HOW ABOUT A USERS HUIDE FOR ARCHIVE THAT’S COMPLETE 
AND WRITTEN IN PLAIN ENGLISH FOR A CHANGE! 


HERE IT IS! JUST FOR YOU! 
ARCHIVE MASTER 


Dur new book will snop out shortly after the ist of 
March, 1987. We don’t think that there is anything about 
ARCHIVE that we have forgotten to cover. We may have 
nissed some small detail, but we can't find it! 


The book covers ALL COMMANDS and ALL FUNCTIONS in detail! 

We step you through each of these and then go on to show 

you how to create the ‘PERFECT FILE’. After that, we show 
you how to add NEW FIELDS to an HUN file. 

The next step is to show you, IN DETAIL, the SEDIT or 
SCREEN EDIT function. Have you ever turned off your OL 
without closing a file and tried to open it again only to 
ger ‘CANNOT OPEN FILE’? If so, we have included a fix for 
he corrupted file. THIS ONE ALONE IS WORTH THE PRICE OF 


THE BOOK! And if that’s not enough, we even give you the 
listings for all of our business software! 
All of this at a price of ONE PROGRAM! 

ONLY $44. 9S+$3ph 
Over 200 8 1/2'x11' pages in a quality 3 ring binder. 
ANOTHER SUPERB EXECUTIVE WORKSHOP PRODUCT FOR YOUR QL! 

AVAILABLE EXCLUSIVELY FROM: 

RMG ENTERPRISES 


1419 1/2 7TH STREET 


OREGON CITY, OR 97045 
503/655-7404 


αι οι οι οι οι αι οι οι οι οι οι οι οι οι οι. 


SMUG Bytes 


